1 REM PARAPSYCHOLOGY TESTER
3 REM MODIFIED BY RA BRIGGS LAKE WALES,       FL
4 REM C64 TRANSLATION BY DAN TOBIAS
8 POKE53280,6:POKE53281,7:PRINT""
10 GOSUB1500
20 GOSUB1200
25 SP$="                                       "
30 GOSUB277
40 DEFFNH(X)=1+D+4*(X-1)
100 PRINT:PRINT
110 V=4:H=1:GOSUB275:INPUT"[200]OW MANY TRIALS (5-33)";TR
120 IFTR<5ORTR>33THEN110
130 V=5:H=1:GOSUB275:INPUT"[200]OW MANY CHOICES (2-10)";NC
140 IFNC<2ORNC>10THEN130
150 D=20-2*NC
170 F1=1:F2=1:F3=1
200 GOSUB277:GOSUB450
210 RN=INT(RND(0)*NC)+1
220 GOSUB590
230 IFRN<>NTHEN250
240 NH=NH+1
250 NT=NT+1:GOSUB670
260 IFNT=TRTHEN870
270 GOTO200
275 PRINTLEFT$("",V)SPC(H-1):RETURN
277 PRINT"[147]                                        ":RETURN
280 REM PARAMETER INPUT
290 PRINTM$
300 GETA$:IFA$=""THEN300
305 IFA$<>"[217]"ANDA$<>"Y"ANDA$<>"[206]"ANDA$<>"N"THEN300
310 PRINTA$:RETURN
320 REM TOPLINE
330 IFNT=0THENPC=0:GOTO350
340 PC=INT((NH/NT)*100)
350 PRINT"[212]RIALS:"NT;
370 PRINTTAB(14)"[200]ITS:"NH;
380 PRINTTAB(24)"% [210]IGHT:";PC;"   "
400 RETURN
410 REM NOISE FEEDBACK
440 RETURN
450 REM PRINT "HAND"
470 FORX=1TONC
480 FORDL=1TO30*(11-NC):NEXT
490 FORY=1TO3:V=10+Y
500 H=FNH(X):GOSUB275
510 PRINT"   "
520 NEXT
530 V=12:H=FNH(X):GOSUB275
540 IFX=10THENPRINT""0;:GOTO560
550 PRINT""X;
560 NEXT
573 H=1:V=18:GOSUB275
575 IFRS$="K"ORRS$="[203]"THEN578
576 PRINT"[202]OYSTICK MOVES POINTER LEFT & RIGHT":PRINT:PRINT"[194]UTTON MAKES SELECT
578 [153]"ATNRROW KEYS MOVE LEFT & RIGHT":[153]:[153]"(null)VAL(null)(null)(null)(null)WAIT KEY MAKES SELECTION"
580 [142]
590 [141]1300
660 [142]
670 [143] FEEDBACK ROUTINE
680 [139]F1[167][141]410
690 [139]F2[167][141]320
700 [139]F3[178]0[167][142]
710 [129]X[178]1[164]6
720 [139]RN[178]N[167]V[178]5:H[178]16:[141]275:[153]"(null)IGHT!!!"
730 [129]DL[178]1[164]75:[130]DL
750 [153]"WAIT";:[139]X[173]2[178][181](X[173]2)[167][153]"";
760 [129]Y[178]1[164]3
770 V[178]10[170]Y:H[178][165]H(RN):[141]275
780 [153]"   ";
790 [130]
800 V[178]12:H[178][165]H(RN):[141]275
810 [139]RN[178]10[167][153]" 0";:[137]830
820 [153]RN;
830 V[178]5:H[178]1:[141]275:[153]"WAIT                                       "
835 [129]DL[178]1[164]75:[130]DL
840 [130]
860 [142]
870 [143] DO END OF RUN STATISTICS
880 [141]320
890 PB[178]0
895 [139]NH[178]0[167]940
900 [129]X[178]0[164]NH[171]1
910 [141]1060
920 PB[178]PB[170]PR
930 [130]
940 PB[178]1[171]PB
950 [141]277
960 V[178]5:H[178]8:[141]275:[153]"(null)RIALS:";NT
970 V[178]7:H[178]7:[141]275:[153]"LENHOICES:";NC
980 V[178]9:H[178]10:[141]275:[153]"LEFT$ITS:";NH
990 [153]"...................."
1000 [153]"(null)ROBABILITY="PB
1010 [153]
1020 [139]PB[177].05[137]1030
1022 [153]"(null)HIS IS STATISTICALLY SIGNIFICANT."
1025 [153]:[153]"(null)OU WOULD DO THAT WELL OR BETTER BY"
1026 [153]:[153]"CHANCE ALONE ONLY"[181](PB[172]100)"PERCENT OF THE TIME."
1027 [137]1050
1030 [153]"(null)HIS IS NOT STATISTICALLY SIGNIFICANT."
1035 [153]:[153]"(null)OU WOULD DO AT LEAST THAT WELL BY"
1040 [153]:[153]"CHANCE ALONE"[181](PB[172]100)"PERCENT OF THE TIME."
1050 V[178]23:H[178]12:[141]275:[153]"ATNGAIN ((null) OR (null))"
1053 [161]AG$:[139]AG$[178]""[167]1053
1055 [139]AG$[178]"(null)"[176]AG$[178]"Y"[167][156]:[137]20
1056 [139]AG$[179][177]"(null)"[175]AG$[179][177]"N"[167]1053
1058 [137]63000:[143] HOOK TO MENU HERE
1060 [143] CALC. PROBABILITY
1070 P[178]1[173]NC:Q[178]1[171]P
1080 N[178]NT:[141]1130:N1[178]NF
1090 N[178]X:[141]1130:N2[178]NF
1100 N[178]NT[171]X:[141]1130:N3[178]NF
1110 PR[178](N1[172]P[174]X[172]Q[174](NT[171]X))[173](N2[172]N3)
1120 [142]
1130 [143] FACTORIAL
1140 NF[178]1
1150 [129]CT[178]1[164]N
1160 NF[178]NF[172]CT
1170 [130]
1180 [142]
1200 [153]"LOAD"
1212 [153]:[153][163]10)"(null)=(null)EYBOARD":[153][163]10)"MID$=MID$OYSTICK"
1220 [153]:[153]"(null)HICH"
1230 [161]RS$:[139]RS$[178]""[167]1230
1240 [153]RS$
1280 [153]"LOAD";:[142]
1300 [143] KEYBOARD INPUT ROUTINE
1310 V[178]15:N[178][181](NC[173]2)[170]1
1320 H[178]1:[141]275:[153]SP$;:H[178]1[170][165]H(N):[141]275:[153]"^";
1325 [139]RS$[179][177]"K"[175]RS$[179][177]"(null)"[167][141]1400:[137]1340
1330 [161]A$:[139]A$[178]""[167]1330
1340 [139]A$[178][199](13)[167][142]
1350 [139]A$[178]"CMD"[176]A$[178]""[167]N[178]N[171]1:[137]1380
1360 [139]A$[178]""[176]A$[178]"ON"[167]N[178]N[170]1:[137]1380
1370 [137]1325
1380 [139]N[179]1[167]N[178]NC
1390 [139]N[177]NC[167]N[178]1
1395 [137]1320
1400 [143] JOYSTICK
1401 [129]A[178]1[164]20:[130]:[143] DELAY
1402 A$[178]""
1403 JV[178][194](56321):[143] GET JOYSTICK VALUE
1404 FR[178]JV[175]16:JV[178]15[171](JV[175]15)
1405 [139]FR[179][177]16[167]A$[178][199](13):[142]
1410 [139]JV[178]4[176]JV[178]5[176]JV[178]6[167]A$[178]"CMD":[142]
1420 [139]JV[178]8[176]JV[178]9[176]JV[178]10[167]A$[178]"":[142]
1430 [142]
1500 [153]"LOAD"[163]8)"(null)ARAPSYCHOLOGY (null)ESTER"
1510 [153]:[153]"  (null)HIS PROGRAM WAS WRITTEN BY STR$AVID"
1520 [153]:[153]"STR$URKEE AND WAS SENT TO (null)OFTDISK BY"
1530 [153]:[153]"(null).ATN. PEEKRIGGS.  RIGHT$T WAS TRANSLATED TO THE"
1535 [153]:[153]"LENOMMODORE 64 BY STR$ANIEL (null)OBIAS.  RIGHT$T FIRST"
1540 [153]"APPEARED ON PAGE 223 OF THE MID$UNE 1983"
1545 [153]:[153]"ISSUE OF (null)OFTALK MAGAZINE."
1550 [153]:[153]"  (null)HE OBJECT OF THE PROGRAM IS TO TRY"
1560 [153]:[153]"TO OUTGUESS THE LEN-64 (null)ANDOM (null)UMBER"
1570 [153]:[153]"CHR$ENERATOR.  RIGHT$F YOU GUESS RIGHT OFTEN"
1580 [153]:[153]"ENOUGH THEN MAYBE YOU HAVE VAL(null)(null)."
1599 V[178]24:H[178]13:[141]275:[153]"LEFT$IT SPACE BARWAIT";
1600 [161]R$:[139]R$[178]""[167]1600
1610 [153]R$:[142]
63000 [143]    CONNECT BACK TO L.S.
63002 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
63004 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]